'
' @Author: 一日看尽长安花
' @since: 2022-02-23 12:39:39
' @LastEditTime: 2022-03-03 19:39:27
' @LastEditors: 一日看尽长安花
' @Description:
'
'  变量声明
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd.exe",8,false
WScript.Sleep 1500
' netsh interface show interface
WshShell.SendKeys "netsh interface set interface WLAN disabled"
WshShell.SendKeys "{ENTER}"
WScript.Sleep 30000

WshShell.SendKeys "netsh interface set interface WLAN enabled"
WshShell.SendKeys "{ENTER}"
WScript.Sleep 5000

WshShell.SendKeys "exit"
WshShell.SendKeys "{ENTER}"
